Cream of the Crop 20/Cream of the Crop 20 (Terry Blount) (1996).iso/windows/secwin20.zip/EXAMPLES/SECWIN/EMPRPT/EMPRPT15.APP

Clarion Topspeed Data File | 1996-06-05 | 64KB | 2,404 lines

"?Cwg:Prompt
ThisAllowed
 contains the users access rights
@n-13
ThisAllowed:
ThisAllowed
?ThisAllowed:Prompt
ThisAllowed:
ThisAllowed
@n-13
ThisAllowed
@n-13
%ControlPostEventHandling
?Button1
Accepted
RETURN
%RecordFilter
  ! example of SecWin workgroup filtering
  if CWG <> 0
    if CWG = 1 and wag:department <> 'Technical Support' then exit.
    if CWG = 2 and wag:department <> 'Development' then exit.
  ! Explanation :
  ! if the user's Workgroup is set to 0 then all the depts are visible.
  ! if the user's Workgroup is set to 1, then only the Tech Support dept
  !    is visible.
  ! if the user's Workgroup is set to 2, then only the Development dept
  !    is visible.
AppNum
@n-13
AppNum:
AppNum
*?AppNum:Prompt
oAppNum:
AppNum
:@n-13
!AppNum
@n-13
umQueue
AppNumQueue
AppNumQueue:
AppNumQueue
:?AppNumQueue:Prompt
AppNumQueue:
AppNumQueue
AppNumQueue
AppNameDesc
AppNameDesc:
AppNameDesc
:?AppNameDesc:Prompt
AppNameDesc:
AppNameDesc
AppNameDesc
ForceRefresh
@n-13
ForceRefresh:
ForceRefresh
B?ForceRefresh:Prompt
ompForceRefresh:
iaForceRefresh
wIn@n-13
EForceRefresh
ind@n-13
@n-13
WindowInitialized
@n-13
WindowInitialized:
WindowInitialized
N?WindowInitialized:Prompt
ndWindowInitialized:
pWindowInitialized
@n-13
$WindowInitialized
@n-13
CurrentTab
CurrentTab:
CurrentTab
6?CurrentTab:Prompt
tCurrentTab:
CurrentTab
c@s80
CurrentTab
CurrentTab
CurrentTab:
CurrentTab
6?CurrentTab:Prompt
tCurrentTab:
CurrentTab
c@s80
CurrentTab
CurrentTab
CurrentTab:
CurrentTab
6?CurrentTab:Prompt
tCurrentTab:
CurrentTab
c@s80
CurrentTab
ThisAllowed
 contains the users access rights
@n-13
ThisAllowed:
ThisAllowed
:?ThisAllowed:Prompt
ThisAllowed:
n-1ThisAllowed
@n-13
+ThisAllowed
@n-13
ThisAllowed
 contains the users access rights
@n-13
ThisAllowed:
ThisAllowed
:?ThisAllowed:Prompt
ThisAllowed:
n-1ThisAllowed
@n-13
ThisAllowed
@n-13
WindowOpened
@n-13
WindowOpened:
WindowOpened
B?WindowOpened:Prompt
WindowOpened:
:WindowOpened
qu@n-13
EWindowOpened
qu@n-13
pplication Optio
LocalResponse
@n-13
LocalResponse:
LocalResponse
B?LocalResponse:Prompt
LocalResponse:
:LocalResponse
qu@n-13
ELocalResponse
qu@n-13
pplication Optio
OriginalRequest
@n-13
OriginalRequest:
OriginalRequest
F?OriginalRequest:Prompt
OriginalRequest:
ocaOriginalRequest
@n-13
AOriginalRequest
@n-13
pplication Optio
LocalRequest
@n-13
LocalRequest:
LocalRequest
?LocalRequest:Prompt
*LocalRequest:
LocalRequest
@n-13
LocalRequest
5@n-13
Application Optio
WindowInitialized
@n-13
WindowInitialized:
WindowInitialized
N?WindowInitialized:Prompt
ndWindowInitialized:
pWindowInitialized
@n-13
7WindowInitialized
@n-13
WindowInitialized
@n-13
WindowInitialized:
WindowInitialized
N?WindowInitialized:Prompt
ndWindowInitialized:
pWindowInitialized
@n-13
$WindowInitialized
@n-13
_    _    e
EMPRPT.DCT
Clarion
SecWin10$Activate_Security
%ApplicName
EmpRpt
%SecWinExternal
%ThisDll
SecWin10$Call_SetDefaultFont
%FontName
Arial
%FontSize
%FontColor
Black
%FontStyle
Regular
#noedit
#system win
#model clarion dll
#pragma debug(vid=>full)
#compile EMPRP_RD.CLW-- GENERATED
#compile EMPRP_RU.CLW-- GENERATED
#compile EMPRP_SF.CLW-- GENERATED
#compile EMPRPT15.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP001.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP002.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP003.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP004.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP005.clw /define(GENERATED=>on)-- GENERATED
#pragma link(C%L%TPS%S%.LIB)-- GENERATED
#pragma link(winpyr.ico)
#pragma link(secwin16.lib)
#link EMPRPT.exe
    %ModuleFilesUsed
%Module
TREPO001.clw
TREPO002.clw
WAGES
TREPO003.clw
WAGES
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
WAGES
EMPRP003.clw
WAGES
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%GenerationCompleted
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
EMPRPT15.clw
%ModuleVBXUsed
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%ModuleProcs
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%ModulePrintPreviewUsed
%Module
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%LastTarget32
%LastProgramExtension
%LastApplicationDebug
%LastApplicationLocalLibrary
clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP001.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP002.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP003.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP004.clw /define(GENERATED=>on)-- GENERATED
#compile EMPRP005.clw /define(GENERATED=>on)-- GENERATED
#pragma link(C%L%TPS%S%.LIB)-- GENERATED
#pragma link(winpyr.ico)
#pragma link(secwin16.lib)
#link EMPRPT.exe
    %ModuleFilesUsed
%Module
TREPO001.clw
TREPO002.clw
WAGES
TREPO003.clw
WAGES
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
WAGES
EMPRP003.clw
WAGES
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%GenerationCompleted
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
EMPRPT15.clw
%ModuleVBXUsed
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%ModuleProcs
%Module
TREPO001.clw
TREPO002.clw
TREPO003.clw
TREPORT.clw
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%ModulePrintPreviewUsed
%Module
EMPRP001.clw
EMPRP002.clw
EMPRP003.clw
EMPRPT.clw
EMPRP004.clw
EMPRP005.clw
%LastTarget32
%LastProgramExtension
%LastApplicationDebug
%LastApplicationLocalLibrary
indow
Tile &vertically
Tile &horizontally
&Cascade
&Arrange icons
&Help
&Contents
&Search for Help On...
&How to Use Help
&Guided Tour...
!QBrowse Records
BrowseWindow
wag:Department,wag:Employee,wag:Salary
%?List
Browsing Records
?String1
Y119L|M~Department~@s30@100L|M~Employee~@s30@80D(12)~Salary~L(0)@N12.2@
Queue:Browse
BrowseBox
?String1
    ?String3
&Insert
?Insert
?Insert
&Change
?Change
?Change
&Delete
?Delete
?Delete
&Select
?Select
?Select
    ?String4
"Close
?Close
?Close
NOn this screen Insert, Change and Delete have restricted access.
?String2
1?String2
See the EXTENSIONS in the APP.
    ?String3
?String4
@This browse also has WorkGroup filtering enabled. Valid workgroups are 0,1,2.
See the embeds / extensions in the app for the example.
OriginalRequest
@n-13
OriginalRequest:
OriginalRequest
F?OriginalRequest:Prompt
OriginalRequest:
ocaOriginalRequest
@n-13
AOriginalRequest
@n-13
@n-13
LocalRequest
@n-13
LocalRequest:
LocalRequest
B?LocalRequest:Prompt
ompLocalRequest:
iaLocalRequest
wIn@n-13
ELocalRequest
ind@n-13
@n-13
AppendedTitle
@s119
AppendedTitle:
AppendedTitle
B?AppendedTitle:Prompt
AppendedTitle:
AppendedTitle
@s119
AppendedTitle
@s119
RecordChanged
RecordChanged:
RecordChanged
>?RecordChanged:Prompt
RecordChanged:
RecordChanged
)RecordChanged
ag@n3
ActionMessage
ActionMessage:
ActionMessage
B?ActionMessage:Prompt
ActionMessage:
ActionMessage
EActionMessage
ForceRefresh
@n-13
ForceRefresh:
ForceRefresh
B?ForceRefresh:Prompt
ompForceRefresh:
iaForceRefresh
wIn@n-13
CForceRefresh
ind@n-13
@n-13
WindowOpened
@n-13
WindowOpened:
WindowOpened
B?WindowOpened:Prompt
WindowOpened:
:WindowOpened
qu@n-13
EWindowOpened
qu@n-13
LocalResponse
@n-13
LocalResponse:
LocalResponse
B?LocalResponse:Prompt
LocalResponse:
:LocalResponse
qu@n-13
ELocalResponse
qu@n-13
OriginalRequest
@n-13
OriginalRequest:
OriginalRequest
F?OriginalRequest:Prompt
OriginalRequest:
ocaOriginalRequest
@n-13
AOriginalRequest
@n-13
LocalRequest
@n-13
LocalRequest:
LocalRequest
B?LocalRequest:Prompt
LocalRequest:
LocalRequest
@n-13
CLocalRequest
@n-13
ForceRefresh
@n-13
ForceRefresh:
ForceRefresh
B?ForceRefresh:Prompt
ompForceRefresh:
iaForceRefresh
wIn@n-13
0ForceRefresh
ind@n-13
@n-13
WindowInitialized
@n-13
WindowInitialized:
WindowInitialized
N?WindowInitialized:Prompt
ndWindowInitialized:
pWindowInitialized
@n-13
9WindowInitialized
@n-13
DeptDepartment
DeptDepartment:
DeptDepartment
DeptDepartment:
E?DeptDepartment:Prompt
DDeptDepartment
brDeptDepartment
Arial
Gavin Halliday
   98,653.00
(2.00
DeptEmployeeCount
DeptEmployeeCount:
DeptEmployeeCount
Z?DeptEmployeeCount:Prompt
DeptEmployeeCount:
DeptEmployeeCount
d.DeptEmployeeCount
Created
?ARG:CRTIME
?ARG:CRDATE
Modified
?ARG:MODTIME
?ARG:MODDATE
Cancel
?CANCEL
DeptSalaryCount
@n17.2
DeptSalaryCount:
DeptSalaryCount
DeptSalaryCount
)?DeptSalaryCount:Prompt
DeptSalaryCount:
"DeptSalaryCount
@n17.2
.@n17.2
Created
?ARG:CRTIME
?ARG:CRDATE
Modified
?ARG:MODTIME
?ARG:MODDATE
Cancel
?CANCEL
DeptDetails
DeptDetails:
DeptDetails
DeptDetails:
1?DeptDetails:Prompt
DeptDetails
DeptDetails
SalaryCount
@n17.2
SalaryCount:
SalaryCount
SalaryCount:
>?SalaryCount:Prompt
SalaryCount
SalaryCount
@n17.2
@n17.2
EmployeeCount
EmployeeCount:
EmployeeCount
EmployeeCount:
J?EmployeeCount:Prompt
EmployeeCount
EmployeeCount
  @n-6
RecordStatus
RecordStatus:
RecordStatus
>?RecordStatus:Prompt
RecordStatus:
s:RecordStatus
ogr@n3
)RecordStatus
ogr@n3
PercentProgress
PercentProgress:
PercentProgress
B?PercentProgress:Prompt
PercentProgress:
clePercentProgress
PercentProgress
%@n-13
RecordsThisCycle
@n-13
RecordsThisCycle:
RecordsThisCycle
A?RecordsThisCycle:Prompt
ecoRecordsThisCycle:
coRecordsThisCycle
@n-13
RecordsThisCycle
%@n-13
RecordsPerCycle
@n-13
RecordsPerCycle:
RecordsPerCycle
F?RecordsPerCycle:Prompt
RecordsPerCycle:
sedRecordsPerCycle
@n-13
ARecordsPerCycle
@n-13
@n-13
RecordsProcessed
@n-13
RecordsProcessed:
RecordsProcessed
A?RecordsProcessed:Prompt
indRecordsProcessed:
OpRecordsProcessed
@n-13
RecordsProcessed
#@n-13
RecordsToProcess
@n-13
RecordsToProcess:
RecordsToProcess
A?RecordsToProcess:Prompt
indRecordsToProcess:
OpRecordsToProcess
@n-13
RecordsToProcess
%@n-13
WindowOpened
@n-13
WindowOpened:
WindowOpened
B?WindowOpened:Prompt
WindowOpened:
:WindowOpened
gr@n-13
WindowOpened
@n-13
%@n-13
LocalResponse
@n-13
LocalResponse:
LocalResponse
B?LocalResponse:Prompt
LocalResponse:
:LocalResponse
gr@n-13
LocalResponse
@n-13
%@n-13
LocalRequest
@n-13
LocalRequest:
LocalRequest
B?LocalRequest:Prompt
LocalRequest:
s:LocalRequest
ogr@n-13
LocalRequest
@n-13
#@n-13
RejectRecord
@n-13
RejectRecord:
RejectRecord
B?RejectRecord:Prompt
RejectRecord:
s:RejectRecord
ogr@n-13
RejectRecord
@n-13
%@n-13
RecordFiltered
@n-13
RecordFiltered:
RecordFiltered
B?RecordFiltered:Prompt
RecordFiltered:
RecordFiltered
@n-13
ERecordFiltered
@n-13
ForceRefresh
@n-13
ForceRefresh:
ForceRefresh
B?ForceRefresh:Prompt
ompForceRefresh:
iaForceRefresh
wIn@n-13
CForceRefresh
ind@n-13
@n-13
WindowOpened
@n-13
WindowOpened:
WindowOpened
B?WindowOpened:Prompt
WindowOpened:
:WindowOpened
qu@n-13
EWindowOpened
qu@n-13
@n-13
LocalResponse
@n-13
LocalResponse:
LocalResponse
B?LocalResponse:Prompt
LocalResponse:
:LocalResponse
qu@n-13
0LocalResponse
qu@n-13
@n-13
WindowOpened
@n-13
WindowOpened:
WindowOpened
B?WindowOpened:Prompt
WindowOpened:
:WindowOpened
qu@n-13
EWindowOpened
qu@n-13
LocalResponse
@n-13
LocalResponse:
LocalResponse
B?LocalResponse:Prompt
LocalResponse:
:LocalResponse
qu@n-13
ELocalResponse
qu@n-13
OriginalRequest
@n-13
OriginalRequest:
OriginalRequest
F?OriginalRequest:Prompt
OriginalRequest:
ocaOriginalRequest
@n-13
7OriginalRequest
@n-13
LocalRequest
@n-13
LocalRequest:
LocalRequest
B?LocalRequest:Prompt
LocalRequest:
LocalRequest
@n-13
@LocalRequest
@n-13
wag:Salary
*Update Record ...
FormWindow
5wag:Employee
yeewag:Department
e@N12.2
!ActionMessage
&Salary:
&Employee:
?wag:Employee:Prompt
?wag:Employee:Prompt
ry:@s30
wag:Employee
&Department:
?String2
?wag:Department:Prompt
?wag:Department:Prompt
%wag:Department
?String2
?String3
1?wag:Salary:Prompt
?wag:Salary:Prompt
?String3
wag:Salary
ActionMessage
+Cancel
?Cancel
?Cancel
>On this screen the Salary has restricted access.
7See the EXTENSIONS in the APP.
&inimize on run
&Wait for termination on run
&Clarion
&Setup
&Window
Tile &vertically
Tile &horizontally
&Cascade
&Arrange icons
&Help
&Contents
&Search for Help On...
&How to Use Help
&Guided Tour...
!QBrowse Records
BrowseWindow
wag:Department,wag:Employee,wag:Salary
%?List
Browsing Records
?String1
Y119L|M~Department~@s30@100L|M~Employee~@s30@80D(12)~Salary~L(0)@N12.2@
Queue:Browse
BrowseBox
?String1
    ?String3
&Insert
?Insert
?Insert
&Change
?Change
?Change
&Delete
?Delete
?Delete
&Select
?Select
?Select
    ?String4
"Close
?Close
?Close
NOn this screen Insert, Change and Delete have restricted access.
?String2
1?String2
See the EXTENSIONS in the APP.
    ?String3
?String4
@This browse also has WorkGroup filtering enabled. Valid workgroups are 0,1,2.
See the embeds / extensions in the app for the example.
Arial
window
Employee Report
?String1
?String2
?String1
If you have gotten this far, you probably
?String3
-13?String2
@have noticed that there were some warnings
?String4
?String3
@0compiling this report.  These warnings can
?String5
V&D?String4
ratbe safely ignored.  We urge you to read
?String6
Fil?String5
the online help about this report which
?String7
p?String6
p%Eexplains these warnings and how the report
?Button1
?String7
was written.
?Button1
?String8
NS$?String9
?String8
GenThis APP has been modified to show examples of the SecWin package.
?String10
?String9
VieNew Font Feature
?String10
t See the Global Extensions for seting the Font used by SecWin.
gle Document Menu
~TPLProcMenu
HMenu
MENU.TPW
View a ASCII (text) file
~TPLProcViewer
PViewer
VIEWER.TPW
Sequential Record Processor
~TPLProcProcess
File(s) to Process
Process
GPProcess.TPW
BrowseByDepartment
Browse with update and select
Clarion$Browse
Clarion$BrowseBox
B%LocatorType
%HotFields
%HotField
%HotFields
%RecordFilter
%RangeField
%RangeLimitType
Current Value
%RangeLimit
%RangeLow
%RangeHigh
%RangeFile
%BrowseTotals
%BrowseTotalTarget
%BrowseTotals
%BrowseTotalType
%BrowseTotals
%BrowseTotalField
%BrowseTotals
%BrowseTotalBasedOn
%BrowseTotals
%BrowseTotalCondition
%BrowseTotals
%ScrollBehavior
Fixed Thumb
%ScrollKeyDistribution
Alpha
%CustomKeyDistribution
%KeyDistributionValue
%CustomKeyDistribution
%DistributionSteps
 20%EnableQuickScan
%OverrideDefaultLocator
%OverrideLocator
%ResetFields
%ResetField
%ResetFields
%ScrollAlpha
%ScrollNumeric
%ScrollAlt
%SortOrder
%SortCondition
%SortOrder
%SortKey
%SortOrder
%SortLocatorType
%SortOrder
%SortOverrideDefaultLocator
%SortOrder
%SortOverrideLocator
%SortOrder
%SortRecordFilter
%SortOrder
%SortRangeField
%SortOrder
%SortRangeLimitType
%SortOrder
%SortRangeLimit
%SortOrder
%SortRangeLow
%SortOrder
%SortRangeHigh
%SortOrder
%SortRangeFile
%SortOrder
%SortResetFields
%SortOrder
%SortResetField
%SortResetFields
%SortScrollBehavior
%SortOrder
%SortScrollKeyDistribution
%SortOrder
%SortCustomKeyDistribution
%SortOrder
%SortKeyDistributionValue
%SortCustomKeyDistribution
%SortScrollAlpha
%SortOrder
%SortScrollNumeric
%SortOrder
%SortScrollAlt
%SortOrder
%HotFieldBound
%HotFields
%ControlFieldForegroundNormal
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ControlFieldBackgroundNormal
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ControlFieldForegroundSelected
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ControlFieldBackgroundSelected
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ConditionalColors
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ColorCondition
%ConditionalColors
?List
%ConditionalControlFieldForegroundNormal
%ConditionalColors
?List
%ConditionalControlFieldBackgroundNormal
%ConditionalColors
?List
%ConditionalControlFieldForegroundSelected
%ConditionalColors
?List
%ConditionalControlFieldBackgroundSelected
%ConditionalColors
?List
%ControlFieldIcon
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%ConditionalIcons
%Control
%ControlField
?List
wag:Department
wag:Employee
wag:Salary
%IconCondition
%ConditionalIcons
?List
%ConditionalControlFieldIcon
%ConditionalIcons
?List
Clarion$BrowseSelectButton
%HideIfDisabled
%SelectViaPopup
Clarion$BrowseUpdateButtons
%UpdateProcedure
%EditViaPopup
Clarion$CloseButton
SecWin10$User_Screen_Security
%ScreenName
Browse Department
%RestrictEqu1
?Change
%RestrictNam1
Change
%RestrictAct1
Disable
%RestrictEquiv1
?Insert
%RestrictEqu2
?Delete
%RestrictNam2
Delete
%RestrictAct2
Disable
%RestrictEquiv2
%RestrictEqu3
?Insert
%RestrictNam3
Insert
%RestrictAct3
Disable
%RestrictEquiv3
%RestrictEqu4
%RestrictNam4
%RestrictAct4
%RestrictEquiv4
%RestrictEqu5
%RestrictNam5
%RestrictAct5
%RestrictEquiv5
%RestrictEqu6
%RestrictNam6
%RestrictAct6
%RestrictEquiv6
%RestrictEqu7
%RestrictNam7
%RestrictAct7
%RestrictEquiv7
SecWin10$User_WorkGroup_Filtering
ReportByDepartment
Default Report Procedure
Clarion$Report
UpdateProc
Default record update
Clarion$Form
Clarion$SaveButton
%InsertAllowed
%ChangeAllowed
%DeleteAllowed
%PrimingFields
%PrimedField
%PrimingFields
%PrimedValue
%PrimingFields
%InsertMessage
Record will be Added
%ChangeMessage
Record will be Changed
%DeleteMessage
Record will be Deleted
%MessageLocation
None/Window Control
%MessageStatusSection
%AppendToTitle
%AppendToTitleID
%ActionOnDelete
Standard Warning
%ActionOnCancel
Offer to save changes
Clarion$CancelButton
SecWin10$User_Screen_Security
%ScreenName
Update Department
%RestrictEqu1
?wag:Salary
%RestrictNam1
Salary
%RestrictAct1
%RestrictEquiv1
%RestrictEqu2
%RestrictNam2
%RestrictAct2
%RestrictEquiv2
%RestrictEqu3
%RestrictNam3
%RestrictAct3
%RestrictEquiv3
%RestrictEqu4
%RestrictNam4
%RestrictAct4
%RestrictEquiv4
%RestrictEqu5
%RestrictNam5
%RestrictAct5
%RestrictEquiv5
%RestrictEqu6
%RestrictNam6
%RestrictAct6
%RestrictEquiv6
%RestrictEqu7
%RestrictNam7
%RestrictAct7
%RestrictEquiv7
SplashWarning
Clarion$Window
?Item15
&Users
"Employee Report
&File
ri?FileMenu
,I&Print Setup ...
   ?PrintSetup
Setup printer
itSTD:PrintSetup
>E&xit
E(?Exit
MSExit this application
owSTD:Close
&Edit
op?EditMenu
>Cu&t
),U?Cut
astRemove item to Windows Clipboard
 ClSTD:Cut
=&Copy
SE?Copy
seCopy item to Windows Clipboard
 STD:Copy
B&Paste
s?Paste
pPaste contents of Windows Clipboard
STD:Paste
" &Browse
?BrowseMenu
Browse data
JBrowse by &Department
  ?BrowseDepartmentItem
'CBrowse by Department
"%&Report
?ReportMenu
Print a report
RReport by &Department
SG?ReportDepartmentItem
wsReport by Department
>&Window
Create and Arrange windows
DSTD:WindowList
BT&ile
  ?Tile
  Make all open windows visible
deSTD:TileWindow
E&Cascade
TEM?Cascade
 foStack all open windows
pSTD:CascadeWindow
R&Arrange Icons
t?Arrange
p')Align all window icons
HSTD:ArrangeIcons
&Help
NDWindows Help
N&Contents
?Helpindex
View the contents of the help file
STD:HelpIndex
A&Search for Help On...
?HelpSearch
Search for help on a subject
STD:HelpSearch
&How to Use Help
=?HelpOnHelp
How to use Windows Help
STD:HelpOnHelp
AppFrame
Browse
?Item16
?String1
%?Item17
Item&17
&Change Password
V?String2
.?String1
1You will have had to log on to get to this screen.
J?String3
1?String2
uSee the EXTENSIONS in the APP.
r?String4
?String3
You can also call the Browse Users, Change Password, Change Login and Lock
?String4
?String5
?String6
R?String5
Screen functions in the FILE menu.  See the Menu Editor in the APP.
?String6
@You can also check out the EXTENSIONS in Global in the APP for Global settings.
The Browse by Department screen has an example of Screen Security.
$&?LockScreen
Lock &Screen
$7?ChangeLogin
geLChange &Login
?Button1
0?BrowseButtonOnToolBar
Arial
DeptBreak
wag:Department
detail
DeptDepartment
@N12.2
Department
T?Dept
NG(DeptSalaryCount
wag:Department
report
Totals for department
&Employees
wag:Employee
DeptBreak
  SalaryCount
wag:Salary
deptsummary
Totals for
Employees
EmployeeCount
Awag:Department
DeptBreak
epwag:Department
wag:Employee
Salaries:
@N12.2
TDeptBreak
wag:Salary
summary
,Totals for all departments
*wag:Salary
DeptDepartment
DeptEmployeeCount
Salaries:
@N12.2
SalaryCount
Department
?dept2
Employees
    oyeeCount
Salaries:
@N12.2
    ryCount
Salary
Department
wag:Department,,?wag:Department:2
Department
wag:Department
&Totals this page
Employees
TREwag:Employee,99
wag:Employee
@N12.2B
Salary
wag:Salary
    Salaries
?String17
wag:Employee,,?wag:Employee:2
wag:Salary,,?wag:Salary:2
wag:Department,,?wag:Department:3
wag:Employee,,?wag:Employee:3
wag:Salary,,?wag:Salary:3
%ProcedureSetup
CLEAR(DeptDetails)
CLEAR(EmployeeCount)
CLEAR(SalaryCount)
%BeforePrint
IF DeptDepartment <> WAG:Department
   IF DeptDepartment THEN
ADD(DeptDetails)
   END
   CLEAR(DeptDetails)
   DeptDepartment = WAG:Department
DeptEmployeeCount += 1
DeptSalaryCount += WAG:Salary
EmployeeCount += 1
SalaryCount += WAG:Salary
%BeforeClosingReport
IF DeptDepartment THEN
  ENDPAGE(Report)
  ADD(DeptDetails)
  SETTARGET(Report)
  ?Dept{PROP:HIDE}=1
  wag:department = ''
  ?Dept2{PROP:HIDE}=1
  ?Tot{PROP:HIDE}=1
  ?Emp{PROP:HIDE}=1
  ?Sal{PROP:HIDE}=1
  99{PROP:HIDE}=1
8! 99 is the field equate number given to the employee
U! total field on the report
  wag:salary=0
  LOOP i# = 1 TO RECORDS(DeptDetails)
GET(DeptDetails, i#)
UPRINT(RPT:DeptSummary)
  END
FREE(DeptDetails)
PRINT(RPT:summary)
%AfterWindowOpening
! this was here in the original Clarion App
AppFrame{PROP:ICON} = '~winpyr.ico'
%WindowEventHandling
OpenWindow
%ControlPostEventHandling
?Item15
Accepted
?Item16
Accepted
?LockScreen
Accepted
?ChangeLogin
Accepted
%Parameters
%WindowMessage
%EnablePrintPreview
%RecordFilter
%RangeField
%ApproxRecordCount
%RangeLimitType
Current Value
%RangeLimit
%RangeLow
%RangeHigh
%ReturnValue
%EnableQuickScan
%RangeFile
%HotFields
%HotField
%HotFields
%HotFieldBound
%HotFields
%DetailFilter
%ReportControl
%DetailFilterExclusive
%ReportControl
i'%ProgramAuthor
%MessageDescription
%WarnOnLogoutError
%GlobalExternal
%INIActive
%INIFile
Program Name.INI
%ININame
%DefaultThreaded
Use File Setting
%DefaultCreate
Use File Setting
%DefaultExternal
None External
%DefaultExternalSource
%DefaultExternalAPP
%DefaultExport
%DefaultCloseFile
Close the File
%DefaultOpenMode
Share
%DefaultUserAccess
Read/Write
%DefaultOtherAccess
Deny None
%OverrideThreaded
%File
WAGES
Use Default
%OverrideCreate
%File
WAGES
Use Default
%OverrideExternal
%File
WAGES
Use Default
%OverrideExternalSource
%File
WAGES
%OverrideExternalAPP
%File
WAGES
'%OverrideExport
%File
WAGES
%OverrideCloseFile
%File
WAGES
Use Default
%OverrideOpenMode
%File
WAGES
Use Default
%OverrideUserAccess
%File
WAGES
Use Default
%OverrideOtherAccess
%File
WAGES
Use Default
%DefaultGenerate
D%DefaultRILogout
%OverrideGenerate
%File
WAGES
%OverrideRILogout
%File
WAGES
%CreateShipList
%ExportGlobalData
%PPMethod
!REGISTER
%ExportMapFile
%ExportEquFile
%ExportEquates
%GenerateEmbedComments
%GenerateEmptyEmbeds
 %Parameters
%ReturnValue
%WindowOperationMode
Use WINDOW setting
%INISaveWindow
%ButtonAction
%Control
?String1
No Special Action
?Button1
No Special Action
?String3
No Special Action
?String9
No Special Action
?String10
No Special Action
%ButtonRunName
%Control
?String1
?Button1
?String3
?String9
?String10
%ButtonRunParameters
%Control
?String1
?Button1
?String3
?String9
?String10
%ButtonProcedure
%Control
?String1
?Button1
?String3
?String9
?String10
+%ButtonThread
%Control
?String1
?Button1
?String3
?String9
?String10
%ButtonThreadStack
%Control
?String1
25000
?Button1
25000
?String3
25000
?String9
25000
?String10
25000
%ButtonParameters
%Control
?String1
?Button1
?String3
?String9
?String10
%PreLookupKey
%Control
?String1
?Button1
?String3
?String9
?String10
%PreLookupField
%Control
?String1
?Button1
?String3
?String9
?String10
%PreLookupProcedure
%Control
?String1
?Button1
?String3
?String9
?String10
%PostLookupKey
%Control
?String1
?Button1
?String3
?String9
?String10
%PostLookupField
%Control
?String1
?Button1
?String3
?String9
?String10
%PostLookupProcedure
%Control
?String1
?Button1
?String3
?String9
?String10
1%ForceWindowRefresh
%Control
?String1
?Button1
?String3
?String9
?String10
    %CheckedAssigns
%Control
%CheckedAssignVariable
%CheckedAssigns
?String1
?Button1
?String3
?String9
?String10
%CheckedAssignValue
%CheckedAssigns
?String1
?Button1
?String3
?String9
?String10
%CheckedHides
%Control
%CheckedControl
%CheckedHides
?String1
?Button1
?String3
?String9
?String10
%CheckedControlAction
%CheckedHides
?String1
?Button1
?String3
?String9
?String10
%UncheckedAssigns
%Control
%UncheckedAssignVariable
%UncheckedAssigns
?String1
?Button1
?String3
?String9
?String10
%UncheckedAssignValue
%UncheckedAssigns
?String1
?Button1
?String3
?String9
?String10
%UnCheckedHides
%Control
%UnCheckedControl
%UnCheckedHides
?String1
?Button1
?String3
?String9
?String10
%UnCheckedControlAction
%UnCheckedHides
?String1
?Button1
?String3
?String9
?String10
%ButtonRequest
%Control
?Button1
?String9
?String10
%PostLookupDuringValidate
%Control
?String9
?String10
Clarion$Clarion
Clarion$GENERATED
Clarion$GENERATED
Clarion$GENERATED
Clarion$GENERATED
Clarion$GENERATED
Default MDI Frame
Clarion$Frame
Clarion$DateTimeDisplay
%DisplayDate
%DatePicture
October 31, 1959
%OtherDatePicture
%ShowDayOfWeek
%DateDisplayLocation
Control
%DateStatusSection
%DateControl
%DisplayTime
%TimePicture
5:30PM
%OtherTimePicture
%TimeDisplayLocation
Control
%TimeStatusSection
%TimeControl
SecWin10$User_Login
%AreaName
%SecCase
%SecOptional
%ThreeTries
 SecWin10$Call_OperatorBrowse
 SecWin10$Call_ChangePassword
SecWin10$Call_Current
%StatusPos
%CurrentCall
Current Name
%UserPrompt
'Current User : '
%StatusPos
%CurrentCall
Current Name
%UserPrompt
'Current User : '
SecWin10$Call_LockScreen
SecWin10$Call_ChangeLogin
!SecWin10$User_Screen_Security
%ScreenName
%RestrictEqu1
?BrowseDepartmentItem
%RestrictNam1
Browse
%RestrictAct1
Disable
%RestrictEquiv1
?BrowseButtonOnToolBar
%RestrictEqu2
%RestrictNam2
%RestrictAct2
%RestrictEquiv2
%RestrictEqu3
%RestrictNam3
%RestrictAct3
%RestrictEquiv3
%RestrictEqu4
%RestrictNam4
%RestrictAct4
%RestrictEquiv4
%RestrictEqu5
%RestrictNam5
%RestrictAct5
%RestrictEquiv5
%RestrictEqu6
%RestrictNam6
%RestrictAct6
%RestrictEquiv6
%RestrictEqu7
%RestrictNam7
%RestrictAct7
%RestrictEquiv7
%ButtonAction
%Control
?BrowseDepartmentItem
Call a Procedure
?ReportDepartmentItem
Call a Procedure
No Special Action
?FileMenu
No Special Action
?PrintSetup
No Special Action
?Exit
No Special Action
?EditMenu
No Special Action
No Special Action
?Copy
No Special Action
?Paste
No Special Action
?BrowseMenu
No Special Action
?ReportMenu
No Special Action
?Tile
No Special Action
?Cascade
No Special Action
?Arrange
No Special Action
?Helpindex
No Special Action
?HelpSearch
No Special Action
?HelpOnHelp
No Special Action
?Item15
No Special Action
?Item16
No Special Action
?Item17
No Special Action
?String1
No Special Action
?LockScreen
No Special Action
?ChangeLogin
No Special Action
?BrowseButtonOnToolBar
Call a Procedure
%ButtonProcedure
%Control
?BrowseDepartmentItem
?ReportDepartmentItem
?FileMenu
?PrintSetup
?Exit
?EditMenu
?Copy
?Paste
?BrowseMenu
?ReportMenu
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?Item15
?Item16
?Item17
?String1
?LockScreen
?ChangeLogin
?BrowseButtonOnToolBar
%ButtonThread
%Control
?BrowseDepartmentItem
?ReportDepartmentItem
?FileMenu
?PrintSetup
?Exit
?EditMenu
?Copy
?Paste
?BrowseMenu
?ReportMenu
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?Item15
?Item16
?Item17
?String1
?LockScreen
?ChangeLogin
?BrowseButtonOnToolBar
%ButtonThreadStack
%Control
?BrowseDepartmentItem
25000
?ReportDepartmentItem
25000
?FileMenu
25000
?PrintSetup
25000
?Exit
25000
?EditMenu
25000
25000
?Copy
25000
?Paste
25000
?BrowseMenu
25000
?ReportMenu
25000
?Tile
25000
?Cascade
25000
?Arrange
25000
?Helpindex
25000
?HelpSearch
25000
?HelpOnHelp
25000
?Item15
25000
?Item16
25000
?Item17
25000
?String1
25000
?LockScreen
25000
?ChangeLogin
25000
?BrowseButtonOnToolBar
25000
%Parameters
%INISaveWindow
%ButtonRunName
%Control
?FileMenu
?PrintSetup
?Exit
?EditMenu
?Copy
?Paste
?BrowseMenu
?BrowseDepartmentItem
?ReportMenu
?ReportDepartmentItem
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?Item15
?Item16
?Item17
?String1
?LockScreen
?ChangeLogin
?BrowseButtonOnToolBar
%ButtonRunParameters
%Control
?FileMenu
?PrintSetup
?Exit
?EditMenu
?Copy
?Paste
?BrowseMenu
?BrowseDepartmentItem
?ReportMenu
?ReportDepartmentItem
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?Item15
?Item16
?Item17
?String1
?LockScreen
?ChangeLogin
?BrowseButtonOnToolBar
%ButtonParameters
%Control
?FileMenu
?PrintSetup
?Exit
?EditMenu
?Copy
?Paste
?BrowseMenu
?BrowseDepartmentItem
?ReportMenu
?ReportDepartmentItem
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?Item15
?Item16
?Item17
?String1
?LockScreen
?ChangeLogin
?BrowseButtonOnToolBar
%PreLookupKey
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%PreLookupField
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%PreLookupProcedure
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%PostLookupKey
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%PostLookupField
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%PostLookupProcedure
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%ForceWindowRefresh
%Control
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%CheckedAssigns
%Control
%CheckedAssignVariable
%CheckedAssigns
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%CheckedAssignValue
%CheckedAssigns
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%CheckedHides
%Control
%CheckedControl
%CheckedHides
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%CheckedControlAction
%CheckedHides
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%UncheckedAssigns
%Control
%UncheckedAssignVariable
%UncheckedAssigns
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%UncheckedAssignValue
%UncheckedAssigns
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%UnCheckedHides
%Control
%UnCheckedControl
%UnCheckedHides
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%UnCheckedControlAction
%UnCheckedHides
?Item15
?Item16
?String1
?LockScreen
?ChangeLogin
?BrowseDepartmentItem
?BrowseButtonOnToolBar
%ReturnValue
%ButtonRequest
%Control
?PrintSetup
?Item15
?Item16
?LockScreen
?ChangeLogin
?Exit
?Copy
?Paste
?BrowseDepartmentItem
?ReportDepartmentItem
?Tile
?Cascade
?Arrange
?Helpindex
?HelpSearch
?HelpOnHelp
?BrowseButtonOnToolBar
%PostLookupDuringValidate
%Control
?Item15
?BrowseDepartmentItem
?BrowseButtonOnToolBar
 %Parameters
%WindowOperationMode
Use WINDOW setting
%INISaveWindow
%ButtonAction
%Control
No Special Action
?Cancel
No Special Action
No Special Action
%ButtonRunName
%Control
?Cancel
%ButtonRunParameters
%Control
?Cancel
%ButtonProcedure
%Control
?Cancel
%ButtonThread
%Control
?Cancel
%ButtonThreadStack
%Control
25000
?Cancel
25000
25000
%ButtonParameters
%Control
?Cancel
%PreLookupKey
%Control
?wag:Employee
?wag:Department
?wag:Salary
%PreLookupField
%Control
?wag:Employee
?wag:Department
?wag:Salary
%PreLookupProcedure
%Control
?wag:Employee
?wag:Department
?wag:Salary
%PostLookupKey
%Control
?wag:Employee
?wag:Department
?wag:Salary
%PostLookupField
%Control
?wag:Employee
?wag:Department
?wag:Salary
%PostLookupProcedure
%Control
?wag:Employee
?wag:Department
?wag:Salary
%ForceWindowRefresh
%Control
?wag:Employee
?wag:Department
?wag:Salary
%CheckedAssigns
%Control
%CheckedAssignVariable
%CheckedAssigns
%CheckedAssignValue
%CheckedAssigns
%CheckedHides
%Control
%CheckedControl
%CheckedHides
%CheckedControlAction
%CheckedHides
%UncheckedAssigns
%Control
%UncheckedAssignVariable
%UncheckedAssigns
%UncheckedAssignValue
%UncheckedAssigns
%UnCheckedHides
%Control
%UnCheckedControl
%UnCheckedHides
%UnCheckedControlAction
%UnCheckedHides
%ReturnValue
%ButtonRequest
%Control
%PostLookupDuringValidate
%Control
 %Parameters
%WindowOperationMode
Use WINDOW setting
%INISaveWindow
%ButtonAction
%Control
?Insert
No Special Action
?Change
No Special Action
?Delete
No Special Action
?Select
No Special Action
?Close
No Special Action
?String3
No Special Action
?String4
No Special Action
No Special Action
%ButtonRunName
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%ButtonRunParameters
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%ButtonProcedure
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%ButtonThread
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%ButtonThreadStack
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
25000
?String4
25000
25000
%ButtonParameters
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%PreLookupKey
%Control
?String3
?String4
%PreLookupField
%Control
?String3
?String4
%PreLookupProcedure
%Control
?String3
?String4
%PostLookupKey
%Control
?String3
?String4
%PostLookupField
%Control
?String3
?String4
%PostLookupProcedure
%Control
?String3
?String4
%ForceWindowRefresh
%Control
?String3
?String4
%CheckedAssigns
%Control
%CheckedAssignVariable
%CheckedAssigns
?String3
?String4
%CheckedAssignValue
%CheckedAssigns
?String3
?String4
%CheckedHides
%Control
%CheckedControl
%CheckedHides
?String3
?String4
%CheckedControlAction
%CheckedHides
?String3
?String4
%UncheckedAssigns
%Control
%UncheckedAssignVariable
%UncheckedAssigns
?String3
?String4
%UncheckedAssignValue
%UncheckedAssigns
?String3
?String4
%UnCheckedHides
%Control
%UnCheckedControl
%UnCheckedHides
?String3
?String4
%UnCheckedControlAction
%UnCheckedHides
?String3
?String4
%ReturnValue
%ButtonRequest
%Control
?Insert
?Change
?Delete
?Select
?Close
?String3
?String4
%PostLookupDuringValidate
%Control
?String3
?String4